﻿Imports System.Windows

Namespace Facades

    Public NotInheritable Class GridAreaFacade

        Private brother As Infragistics.Windows.Chart.GridArea

        Public Sub New(ByVal brother As Infragistics.Windows.Chart.GridArea)
            MyBase.New()
            Me.brother = brother
        End Sub

        '<EditableProperty()> _
        'Public Property Margin() As System.Windows.Thickness
        '    Get
        '        Return Me.brother.Margin
        '    End Get
        '    Set(ByVal value As System.Windows.Thickness)
        '        Me.brother.Margin = value
        '    End Set
        'End Property

        <EditableProperty()> _
        Public Property BorderThickness() As Double
            Get
                Return Me.brother.BorderThickness.Left
            End Get
            Set(ByVal value As Double)
                Me.brother.BorderThickness = New Thickness(value)
            End Set
        End Property

        <EditableProperty()> _
        Public Property Background() As System.Windows.Media.Brush
            Get
                Return Me.brother.Background
            End Get
            Set(ByVal value As System.Windows.Media.Brush)
                Me.brother.Background = value
            End Set
        End Property

        <EditableProperty()> _
        Public Property BorderBrush() As System.Windows.Media.Brush
            Get
                Return Me.brother.BorderBrush
            End Get
            Set(ByVal value As System.Windows.Media.Brush)
                Me.brother.BorderBrush = value
            End Set
        End Property


        '<EditableProperty()> _
        'Public Property MarginTop() As Double
        '    Get
        '        Return Me.brother.Margin.Top
        '    End Get
        '    Set(ByVal value As Double)
        '        Margin = New Thickness(Me.brother.Margin.Left, value, Me.brother.Margin.Right, Me.brother.Margin.Bottom)
        '    End Set
        'End Property

        '<EditableProperty()> _
        'Public Property MarginLeft() As Double
        '    Get
        '        Return Me.brother.Margin.Left
        '    End Get
        '    Set(ByVal value As Double)
        '        Margin = New Thickness(value, Me.brother.Margin.Top, Me.brother.Margin.Right, Me.brother.Margin.Bottom)
        '    End Set
        'End Property

        '<EditableProperty()> _
        'Public Property MarginBottom() As Double
        '    Get
        '        Return Me.brother.Margin.Bottom
        '    End Get
        '    Set(ByVal value As Double)
        '        Margin = New Thickness(Me.brother.Margin.Left, Me.brother.Margin.Top, Me.brother.Margin.Right, value)
        '    End Set
        'End Property

        '<EditableProperty()> _
        'Public Property MarginRight() As Double
        '    Get
        '        Return Me.brother.Margin.Right
        '    End Get
        '    Set(ByVal value As Double)
        '        Margin = New Thickness(Me.brother.Margin.Left, Me.brother.Margin.Top, value, Me.brother.Margin.Bottom)
        '    End Set
        'End Property

    End Class
End Namespace
